﻿'Option Strict Off
Option Explicit On
Imports System

Imports System.Data.Common

Namespace MasterDataSetTableAdapters
    Partial Public Class EvmTableAdapter
        Inherits System.ComponentModel.Component

        Public Function SearchEvm(ByVal dataTable As MasterDataSet.EvmDataTable, ByVal SQL As String) As Integer
            Dim Text As String
            Text = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQL
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = Text
            End Try
        End Function

    End Class

    Partial Public Class StrategyTableAdapter
        Inherits System.ComponentModel.Component

        Public Function SearchStrategy(ByVal dataTable As MasterDataSet.StrategyDataTable, ByVal SQL As String) As Integer
            Dim Text As String
            Text = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQL
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = Text
            End Try
        End Function

    End Class

    Partial Public Class ResponsibleAnalystTableAdapter
        Inherits System.ComponentModel.Component

        Public Function SearchResponsibleAnalyst(ByVal dataTable As MasterDataSet.ResponsibleAnalystDataTable, ByVal SQL As String) As Integer
            Dim Text As String
            Text = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQL
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = Text
            End Try
        End Function

    End Class

    Partial Public Class FundCenterTypeTableAdapter
        Inherits System.ComponentModel.Component

        Public Function SearchFundCenterType(ByVal dataTable As MasterDataSet.FundCenterTypeDataTable, ByVal SQL As String) As Integer
            Dim Text As String
            Text = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQL
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = Text
            End Try
        End Function

    End Class

    Partial Public Class ProfitCenterTableAdapter
        Inherits System.ComponentModel.Component

        Public Function SearchProfitCenter(ByVal dataTable As MasterDataSet.ProfitCenterDataTable, ByVal SQL As String) As Integer
            Dim Text As String
            Text = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQL
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = Text
            End Try
        End Function

    End Class

    Partial Public Class BusinessAreaTableAdapter
        Inherits System.ComponentModel.Component

        Public Function SearchBusinessArea(ByVal dataTable As MasterDataSet.BusinessAreaDataTable, ByVal SQL As String) As Integer
            Dim Text As String
            Text = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQL
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = Text
            End Try
        End Function

    End Class

    Partial Public Class BudgetControlTypeTableAdapter
        Inherits System.ComponentModel.Component

        Public Function SearchBudgetControlType(ByVal dataTable As MasterDataSet.BudgetControlTypeDataTable, ByVal SQL As String) As Integer
            Dim Text As String
            Text = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQL
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = Text
            End Try
        End Function

    End Class

    Partial Public Class CostCentersTableAdapter
        Inherits System.ComponentModel.Component

        Public Function SearchCostCenters(ByVal dataTable As MasterDataSet.CostCentersDataTable, ByVal SQL As String) As Integer
            Dim Text As String
            Text = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQL
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = Text
            End Try
        End Function
    End Class

    Partial Public Class FctHTableAdapter
        Inherits System.ComponentModel.Component

        Public Function SearchFctH(ByVal dataTable As MasterDataSet.FctHDataTable, ByVal SQL As String) As Integer
            Dim Text As String
            Text = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQL
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = Text
            End Try
        End Function
    End Class

    Partial Public Class FctParentTableAdapter
        Inherits System.ComponentModel.Component

        Public Function SearchFctParent(ByVal dataTable As MasterDataSet.FctParentDataTable, ByVal SQL As String) As Integer
            Dim Text As String
            Text = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQL
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = Text
            End Try
        End Function
    End Class

    Partial Public Class fctr_viewTableAdapter
        Inherits System.ComponentModel.Component

        Public Function Searchfctr_view(ByVal dataTable As MasterDataSet.fctr_viewDataTable, ByVal SQL As String) As Integer
            Dim Text As String
            Text = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQL
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = Text
            End Try
        End Function
    End Class

End Namespace